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re "PPB, WERBN, 000741400 " 
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tact Mee od tie ONS Se wn cn se ep ek el ea lee eee OO DO Sem os ss 
CLEAR(TOUR); — 00075100 “a 
SW + 10215 SCSMI¢03 S(SM#1 1699999999999; 00076000. 1@ 
Es i Sen fi EE CO Pe _. 00077000 7 
ROSE! READITS 00079000 s 
If (TYPE t= ABS(ALOJ))=3 THEN 00080000 | @ 
ee BEGIN WRITECLUGOUTLDBLI),MRITECLOGOUTEDBLI)$ 00061000 _ —— 5 
SYSNO t#® ALO),C1!233 00081050 5 
CLEAR(L)3 00081100 of @ 
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READITS 00063000 
e MOVECSsALO]oLE4))5 00084000 e 
ee eee ee RTE OSU TLDS LA SESTEMLSYSNOD IE 0008800 
f WRITECLUGOUTLDBLIJs15eL0¥41)3 00085000 
@» GO TO KOSES 00086000 
3 Seg ieee Gti sto eatin! aloe a, toed BND patn. ia eS NaS ares pee ae et Ne alla No a Ses, Sanh ne Peet ts tod stots totetet enn ne, SC OOP CO Dae mye OI oS 
é IF TYPE=99 THEN 00087100 
@ | BEGIN OPRTRCUMMENT? 00087200 
1 eee a TR iT fe (1212 = 81 yer ce Pe EP arn TI ©0102 = Wc | $10 en ee ree 
7 END} 00087400 
@ | IF TYPE #® 4 THEN GO TU EXIT; 00088000 
SY ee es ECT Y PEO} ALO} 5 THEN TYPFe13 ELSE 0 LU OOO B9NNO 
Ho IF TYPEs6 THEN TYPE#l4 ELSE 00089100 
. IF TYPES7 THEN TYPES=160 ELSE 00089200 
Mil adenine salva’ dh iohar ve whee eee T VRP SS OTNEN GE TOs DISKLOG ORL GE cto u (ie oon en OA iret Be QUE S00) cil il os tae Saale he opel eae ee ae 
V3 IF TYPES9 THEN TYPESS15 ELSE 00089400 
 ] IF TYPEsi0 THEN TYPEts17 ELSE 00089500 
’ IF _T¥PEe11 THEN TYPESsias te aia Tit inet pacer OOO ROU FA0 6.08: ayo nceictecc Sia hae a ee SO wt oy 
FOR I « 2 STEP 1 UNTIL 4 DO 00090000 
[ BEGIN Beh ee eee le abe reNae) 00091000 
Ce PED 2s ALLL / 36003 | - GBs cnn oadteia ea a DOUG POON. poeta cect cate eerie eee = 
ENDS 00093000 
WRITECLOGOUTLOBL] »PRINCIPAL*FRONTCIYPEI>» 00094000 
_FOR J « O SIEP 1 UNTIL 2 poo gs 900. dt PLE Sh 
: CFRONTCI+3] ACI +2] FRONTLI+6]1)3 00096000 
@ N © AC1I3 00097000 
— READIT S00 ree eee en ae eee eer erence ee ee eRe RENEE 010128 2k 1 C1 « Aa Oe ete nd ere 
OURCOJ!= AL4) DIV 2160003 00097400 
@ OURCLJ%=(AL1] DIV 3600) MCD 663 00097410 
URE A1 9 wil 1901 OO MER: BO ceils Ai ee ook ete rete OOS TRIOS. oan oii oS 
QURE3JssAC1IMOUD 60s 00097432 
@ OURL4)]%=AL0)3 00097440 
eatet OUR OS) Sach ON OT POO Be a a itso on ree rh st ne SOON BA Ostet os cop 
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! SUR CR A Seale AE MD OO cao wai ape thn ae ie ee OO OMB Oixs atled hea Nips oe Seg Gr td) 
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_. TIMECQURCOJsTOURLOI»,ALIT CAiszO)U,AL4)J93 == OO F752 
WRITECLOGOUTCOBLJ+17eTUURL*])3 00097630 
@ IF ELAPTIMELC3]&s¢OURLBI"OURLC3]) LSS O THEN 00097650 
Sec GUNS cine a a oc Ryle cs he a es ee See 
ELAPTIMEL3]$SELAPTIMEL3)+603 00097654 
@ CURL7)f=OURC7I"15 00097656 
ENDS a a i ei 
IF ELAPTIMEL 2) t@CQURE7I*OURC2I) LSS O THEN 00097660 
@ BEGIN 00097662 
ee EL APTIMEL2 TES ELAPTIMEC 214603 00097664 
CURLC6}]2=OURL6]°13 00097710 
] ENDS 00097720 
_IF_ELAPTIMELL1]$=(OURL6IJ"OURCII) LSS O THEN OT 72Q2 
BEGIN 00097724 
@ ELAPTIMEC1]S@ELAPTIMEL1)+603 00097726 
; 2 ____ OURECS3¢sOURLSIeis ONOT TAB 
END 00097730 
@ F: IF QURC4) LSS OURL9) THEN QURL5S)$=GURL5)+24xNRUFDAYS$ 00097732 
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| WRITE CLOGUUTCOBLIJsELAPSE» FUR It=0 STEP 1 UNTIL 2 DO 00097742 
@ ELAPTIMELIJ)3 00097744 
Reet aos Ne tans TE. AC3).(46:2]=3 THEN IF N52 THEN. 0 cc eee, 00097750. 2 o. 
4 BEGIN READITS GO TO ROSE ENDS 00097760 
@.: FAR vy + 1 STEP 1 UNTIL N OO 00098000 
Oe cee alata weed. fh . 3 . ofEGIN READITS... 2, dtm awe ot ieee OOO099000 0. 
i: BUSTCLoAPALS ILLES] sAL 3] eLO817))3— 00100000 
@: IF TYPE t= &68) # 0 THEN 00101000 
( eee caciue oft edna ou EG Nin noel uch Ws artis Oe oes”, et sO OPO 0 Ua. eset 
7 UNITOTALCSYSNO* TYPE) 2UNTTOTALLSYSNOsTYPEI4A( 4] 3 00103000 
a AC4I8RAL4I/603 00104000 
8 ””,”sC ERROR SYSNOe TYPE DSSERRURCSYSNGSTYPEIJ4L E712. UU t0Msoo. 
ta WE=L(6),(6%30)3 00104975 
@: X$5L061,01:25)3 00104980 
feb Pe oa, a oI FOUN PE. LEG16 TREN. ee es ae es OD TOS00 0s eect taba 
‘a WRITECLOGOUTLOBL J®FILEINE Us” 00105200 
LO FOR 1!=0 STEP 1 UNTIL 5 00 00105400 
Pls teas she ra vo we wwe DAD Da Xe UNITE YP EL ewe Ye Ald el F793) 0 OO108600 
by ELSE 00105800 
e” WRITECLUGOUTLOBLJ*FILEINE OL» 00106000 
eee Te ee SPOR Ste 0e SPER to UN TT SO ok oi autos Sd on OO TOG OOO 2m cirencen ma cdatehia ments 
ie LOLI »XsUNITETYPEJsAC4IoL(7])3 00106400 
@ | ENDS 00108000 
5 Re? ENDS. pO a aa ae see ee ee ee © 95) KO 7 09 01 oe ee PO 
2 GO TO RCSE3 00110000 
@ DISKLOG? WRITECLCGUUTLOBLJ )sWRITECLUGOUTCOBL) )sCLEARCD)3 00110100 
iy Aen Pee emer o  H bares ae - 0 ae ates capt 09110125 
2 MOVEC4*ALL)oL[0])3 00110150 
@» READITS 00110200 
Fe en Rees F057 sis ce 0 Wed Meet see se eee a OE a Foe eee Ome SO eC RoeeN 021 ok WoL {Cc eee 
DATECL{L3190(0CI)3 00110300 
eo: IF L£6)] LSS LE4) THEN 00110310 
6 BEGIN. an Se Ee TERE IR TSTMS Te METAR OTe USER aE REI MMe 09) 6s 2c Ec ae NRE eee 
Pt DC3)#eOc3inis 00110320 
@ » L{L6OJ%$alL[6)451840005 00110330 
= EseRG At comtod., gir Gott BONY Ey eels upe icipated haat Dee Ro ene oa aT PS PA AR ° 11515 5 Oe 0 a nn ee re ee Bot peore ass 
34 HRS*CCCDC22 @O£0) )x365  =OC1I #003) )x24eCSECe(Li6J*L[4]) DIV 60) 00110350 
@ DIV 36CO3 00110400 
i eon reece mare. MIN@ (SEC MOP 3600) Dv ¢ OO ct si ho ages teeta et ee ene es ota a OO) wee ee tee ease 
SEC*SEC MOD 603 00110500 
@ LES]: HRSSLEGIs=eMINGLCLOIsFSEC3 00110540 
arctuehs gE SOG OY) RO COI sce 8 te Si SA ie eh Ma Sh TG ae Se ite lates a OT OO OU . Star 
‘ WRITECLOGOUT[DBLJ*SYSTEM[SYSNU])3 00110560 
@ WRITECLOGOUTs159D0#))3 00110600 
i GO TO ROSES Se ee eee, 001106530 a 
: EXIT? FOR SYSNO te O STEP 1 UNTIL 3 DO IF ToTaL CSYSNO,2] ¢ O THEN 00110700 
@ BEGIN 00111100 
me WRITECLOGOUTECPAGE) 23 es i ten anneal Pe ce ADT ET 0 8 se oe a tees 
“WRITECLOGUUTCOBLIJ» SYSTOLESYSNODIF 001432000 
e FOR TYPE ¢ 1 STEP 1 UNTIL 32 00 00113000 
esate enretee cetera ee aT IF UNITOTALCSYSNO*TYPE) # O TREN ss 00414000 _ _ 
WRITECLOGOUTCOBLI+FILETOTALS»UNITETYPEJ» 00115000 
@ UNITOTALECSYSNOs TYPE] /60*ERRORLSYSNO*TYPEI)3 00416000 
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